﻿<Serializable()> _
Public Class EproformaCabecera

#Region "           Atributos                       "
    Private _idEmpresa As Int32
    Private _descEmpresa As String
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idProforma As Int32
    '-------    MENU reporte    ------------'
    Private _hrCreacion As DateTime
    Private _fchCreacion As String
    Private _Eetapa As Eetapa
    '---------------------------------------'
    Private _Ecliente As Ecliente
    Private _EposibleCliente As EposibleCliente
    Private _idPosCliente As Int32
    Private _fchDscto As String
    Private _ErangoEdad As ErangoEdad
    Private _Evendedor As Evendedor
    Private _EnivelInteres As EnivelInteres
    Private _EcomoSeEntero As EcomoSeEntero
    Private _EformaContacto As EformaContacto
    Private _idFormaContacto As String
    Private _vigenciaDescuento As Int32
    Private _montoAdicional As Decimal
    Private _descuento As Decimal
    Private _EperfilCrediticio As EperfilCrediticio
    Private _Ecorredora As Ecorredora
    Private _EtpoUsoInmueble As EtpoUsoInmueble
    Private _cuotaInicialPorc As Decimal
    Private _montoInicial As Decimal
    Private _saldoAFinanciar As Decimal
    Private _EentidadFin As EentidadFin
    Private _nroAños As Int32
    Private _tasaInteres As Decimal
    Private _valorCuota As Decimal
    Private _observacion As String
    Private _totalMonto As Decimal
    Private _totalMontoFinal As Decimal

    Private _descCtaInicial As String
    Private _descSaldo As String

    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    Private _TechoPropio As String

    'Private _nroDocumento As String
    'Private _nombre As String
    'Private _apePaterno As String
    'Private _apeMaterno As String

    '-------    MENU reporte    ------------'
    Private _fchInicio As String
    Private _fchFin As String

    '-------   MENU ATENCION CLIENTE  ------'
    Private _Eproyecto As Eproyecto
    Private _descProyecto As String
    Private _descEtapa As String
    Private _descNivelInteres As String
    Private _descEntidadFin As String
    '---------------------------------------'
    Private _filtro As String 'sirve para filtrar la proforma

    '---------------------------------------'
    Private _correlativo As Int64
    '-------   REPORTE PROFORMA       ------'
    Private _EmodeloInmueble As EmodeloInmueble
    Private _FlagInmuebleOK As Int32
    Private _inmueble As String
    Private _montoAdicionales As Decimal
    Private _idColor As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idEmpresa() As Int32
        Get
            Return _idEmpresa
        End Get
        Set(ByVal value As Int32)
            _idEmpresa = value
        End Set
    End Property
    Public Property TechoPropio() As String
        Get
            Return _TechoPropio
        End Get
        Set(ByVal value As String)
            _TechoPropio = value
        End Set
    End Property
    Public Property descEmpresa() As String
        Get
            Return _descEmpresa
        End Get
        Set(ByVal value As String)
            _descEmpresa = value
        End Set
    End Property
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property
    '-------    MENU reporte    ------------'
    Public Property hrCreacion() As DateTime
        Get
            Return _hrCreacion
        End Get
        Set(ByVal value As DateTime)
            _hrCreacion = value
        End Set
    End Property
    Public Property fchCreacion() As String
        Get
            Return _fchCreacion
        End Get
        Set(ByVal value As String)
            _fchCreacion = value
        End Set
    End Property
    Public Property Eetapa() As Eetapa
        Get
            Return _Eetapa
        End Get
        Set(ByVal value As Eetapa)
            _Eetapa = value
        End Set
    End Property
    '---------------------------------------'
    Public Property Ecliente() As Ecliente
        Get
            Return _Ecliente
        End Get
        Set(ByVal value As Ecliente)
            _Ecliente = value
        End Set
    End Property
    Public Property EposibleCliente() As EposibleCliente
        Get
            Return _EposibleCliente
        End Get
        Set(ByVal value As EposibleCliente)
            _EposibleCliente = value
        End Set
    End Property
    Public Property idPosCliente() As Int32
        Get
            Return _idPosCliente
        End Get
        Set(ByVal value As Int32)
            _idPosCliente = value
        End Set
    End Property
    Public Property fchDscto() As String
        Get
            Return _fchDscto
        End Get
        Set(ByVal value As String)
            _fchDscto = value
        End Set
    End Property
    Public Property ErangoEdad() As ErangoEdad
        Get
            Return _ErangoEdad
        End Get
        Set(ByVal value As ErangoEdad)
            _ErangoEdad = value
        End Set
    End Property
    Public Property Evendedor() As Evendedor
        Get
            Return _Evendedor
        End Get
        Set(ByVal value As Evendedor)
            _Evendedor = value
        End Set
    End Property
    Public Property EnivelInteres() As EnivelInteres
        Get
            Return _EnivelInteres
        End Get
        Set(ByVal value As EnivelInteres)
            _EnivelInteres = value
        End Set
    End Property
    Public Property EcomoSeEntero() As EcomoSeEntero
        Get
            Return _EcomoSeEntero
        End Get
        Set(ByVal value As EcomoSeEntero)
            _EcomoSeEntero = value
        End Set
    End Property
    Public Property EformaContacto() As EformaContacto
        Get
            Return _EformaContacto
        End Get
        Set(ByVal value As EformaContacto)
            _EformaContacto = value
        End Set
    End Property
    Public Property vigenciaDescuento() As Int32
        Get
            Return _vigenciaDescuento
        End Get
        Set(ByVal value As Int32)
            _vigenciaDescuento = value
        End Set
    End Property
    Public Property montoAdicional() As Decimal
        Get
            Return _montoAdicional
        End Get
        Set(ByVal value As Decimal)
            _montoAdicional = value
        End Set
    End Property
    Public Property descuento() As Decimal
        Get
            Return _descuento
        End Get
        Set(ByVal value As Decimal)
            _descuento = value
        End Set
    End Property
    Public Property EperfilCrediticio() As EperfilCrediticio
        Get
            Return _EperfilCrediticio
        End Get
        Set(ByVal value As EperfilCrediticio)
            _EperfilCrediticio = value
        End Set
    End Property
    Public Property Ecorredora() As Ecorredora
        Get
            Return _Ecorredora
        End Get
        Set(ByVal value As Ecorredora)
            _Ecorredora = value
        End Set
    End Property
    Public Property EtpoUsoInmueble() As EtpoUsoInmueble
        Get
            Return _EtpoUsoInmueble
        End Get
        Set(ByVal value As EtpoUsoInmueble)
            _EtpoUsoInmueble = value
        End Set
    End Property
    Public Property cuotaInicialPorc() As Decimal
        Get
            Return _cuotaInicialPorc
        End Get
        Set(ByVal value As Decimal)
            _cuotaInicialPorc = value
        End Set
    End Property
    Public Property montoInicial() As Decimal
        Get
            Return _montoInicial
        End Get
        Set(ByVal value As Decimal)
            _montoInicial = value
        End Set
    End Property
    Public Property saldoAFinanciar() As Decimal
        Get
            Return _saldoAFinanciar
        End Get
        Set(ByVal value As Decimal)
            _saldoAFinanciar = value
        End Set
    End Property
    Public Property EentidadFin() As EentidadFin
        Get
            Return _EentidadFin
        End Get
        Set(ByVal value As EentidadFin)
            _EentidadFin = value
        End Set
    End Property
    Public Property nroAños() As Int32
        Get
            Return _nroAños
        End Get
        Set(ByVal value As Int32)
            _nroAños = value
        End Set
    End Property
    Public Property tasaInteres() As Decimal
        Get
            Return _tasaInteres
        End Get
        Set(ByVal value As Decimal)
            _tasaInteres = value
        End Set
    End Property
    Public Property valorCuota() As Decimal
        Get
            Return _valorCuota
        End Get
        Set(ByVal value As Decimal)
            _valorCuota = value
        End Set
    End Property
    Public Property observacion() As String
        Get
            Return _observacion
        End Get
        Set(ByVal value As String)
            _observacion = value
        End Set
    End Property
    Public Property totalMonto() As Decimal
        Get
            Return _totalMonto
        End Get
        Set(ByVal value As Decimal)
            _totalMonto = value
        End Set
    End Property
    Public Property totalMontoFinal() As Decimal
        Get
            Return _totalMontoFinal
        End Get
        Set(ByVal value As Decimal)
            _totalMontoFinal = value
        End Set
    End Property

    Public Property descCtaInicial() As String
        Get
            Return _descCtaInicial
        End Get
        Set(ByVal value As String)
            _descCtaInicial = value
        End Set
    End Property
    Public Property descSaldo() As String
        Get
            Return _descSaldo
        End Get
        Set(ByVal value As String)
            _descSaldo = value
        End Set
    End Property

    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property

    Public Property nroDocumento() As String
        Get
            Return EposibleCliente.nroDocumento
        End Get
        Set(ByVal value As String)
            EposibleCliente.nroDocumento = value
        End Set
    End Property
    Public Property idCliente() As Int32
        Get
            Return EposibleCliente.idPosCliente
        End Get
        Set(ByVal value As Int32)
            EposibleCliente.idPosCliente = value
        End Set
    End Property
    Public Property nombre() As String
        Get
            Return EposibleCliente.nombre
        End Get
        Set(ByVal value As String)
            EposibleCliente.nombre = value
        End Set
    End Property
    Public Property apePaterno() As String
        Get
            Return EposibleCliente.apePaterno
        End Get
        Set(ByVal value As String)
            EposibleCliente.apePaterno = value
        End Set
    End Property
    Public Property apeMaterno() As String
        Get
            Return EposibleCliente.apeMaterno
        End Get
        Set(ByVal value As String)
            EposibleCliente.apeMaterno = value
        End Set
    End Property

    '-------   MENU REPORTE PROFORMA  ------'
    Public Property fchInicio() As String
        Get
            Return _fchInicio
        End Get
        Set(ByVal value As String)
            _fchInicio = value
        End Set
    End Property
    Public Property fchFin() As String
        Get
            Return _fchFin
        End Get
        Set(ByVal value As String)
            _fchFin = value
        End Set
    End Property
    '---------------------------------------'

    Public Property rangoEdadDe() As String
        Get
            Return ErangoEdad.rangoEdadDe
        End Get
        Set(ByVal value As String)
            ErangoEdad.rangoEdadDe = value
        End Set
    End Property
    Public Property RangoEdadHasta() As String
        Get
            Return ErangoEdad.rangoEdadHasta
        End Get
        Set(ByVal value As String)
            ErangoEdad.rangoEdadHasta = value
        End Set
    End Property
    Public Property telefonoFijo() As String
        Get
            Return EposibleCliente.telefonoFijo
        End Get
        Set(ByVal value As String)
            EposibleCliente.telefonoFijo = value
        End Set
    End Property
    Public Property telefonoCelular() As String
        Get
            Return EposibleCliente.telefonoCelular
        End Get
        Set(ByVal value As String)
            EposibleCliente.telefonoCelular = value
        End Set
    End Property
    Public Property idUbigeo() As String
        Get
            Return EposibleCliente.Eubigeo.idUbigeo
        End Get
        Set(ByVal value As String)
            EposibleCliente.Eubigeo.idUbigeo = value
        End Set
    End Property
    Public Property distrito() As String
        Get
            Return EposibleCliente.Eubigeo.descDistrito
        End Get
        Set(ByVal value As String)
            EposibleCliente.Eubigeo.descDistrito = value
        End Set
    End Property
    Public Property descComoSeEntero() As String
        Get
            Return EcomoSeEntero.descComoseEntero
        End Get
        Set(ByVal value As String)
            EcomoSeEntero.descComoseEntero = value
        End Set
    End Property
    Public Property descFormaContacto() As String
        Get
            Return EformaContacto.descFormaContacto
        End Get
        Set(ByVal value As String)
            EformaContacto.descFormaContacto = value
        End Set
    End Property
    Public Property idFormaContacto() As Int32
        Get
            Return _idFormaContacto
        End Get
        Set(ByVal value As Int32)
            _idFormaContacto = value
        End Set
    End Property
    Public Property descPerfilCrediticio() As String
        Get
            Return EperfilCrediticio.descPerfilCrediticio
        End Get
        Set(ByVal value As String)
            EperfilCrediticio.descPerfilCrediticio = value
        End Set
    End Property
    Public Property totalIngreso() As Decimal
        Get
            Return EposibleCliente.totalIngreso
        End Get
        Set(ByVal value As Decimal)
            EposibleCliente.totalIngreso = value
        End Set
    End Property

    '-------   MENU ATENCION CLIENTE  ------'
    Public Property Eproyecto() As Eproyecto
        Get
            Return _Eproyecto
        End Get
        Set(ByVal value As Eproyecto)
            _Eproyecto = value
        End Set
    End Property
    Public Property descProyecto() As String
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property descEtapa() As String
        Get
            Return _descEtapa
        End Get
        Set(ByVal value As String)
            _descEtapa = value
        End Set
    End Property
    Public Property descNivelInteres() As String
        Get
            Return _descNivelInteres
        End Get
        Set(ByVal value As String)
            _descNivelInteres = value
        End Set
    End Property
    Public Property descEntidadFin() As String
        Get
            Return _descEntidadFin
        End Get
        Set(ByVal value As String)
            _descEntidadFin = value
        End Set
    End Property
    '---------------------------------------'
    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property

    '---------------------------------------'
    Public Property correlativo() As Int64
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int64)
            _correlativo = value
        End Set
    End Property
    '-------   REPORTE PROFORMA       ------'
    Public Property EmodeloInmueble() As EmodeloInmueble
        Get
            Return _EmodeloInmueble
        End Get
        Set(ByVal value As EmodeloInmueble)
            _EmodeloInmueble = value
        End Set
    End Property
    Public Property FlagInmuebleOK() As Int32
        Get
            Return _FlagInmuebleOK
        End Get
        Set(ByVal value As Int32)
            _FlagInmuebleOK = value
        End Set
    End Property
    Public Property inmueble() As String
        Get
            Return _inmueble
        End Get
        Set(ByVal value As String)
            _inmueble = value
        End Set
    End Property
    Public Property montoAdicionales() As Decimal
        Get
            Return _montoAdicionales
        End Get
        Set(ByVal value As Decimal)
            _montoAdicionales = value
        End Set
    End Property
    Public Property idColor() As Int32
        Get
            Return _idColor
        End Get
        Set(ByVal value As Int32)
            _idColor = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    'Public ReadOnly Property Identificacion() As String
    '    Get
    '        Return _EposibleCliente.EtpoDcmto.idTpoDcmto.ToString & " - " & _EposibleCliente.nroDocumento
    '    End Get
    'End Property

    Public ReadOnly Property NombresCompletos() As String
        Get
            Return EposibleCliente.NombresCompletos
        End Get
    End Property

    '-------   MENU ATENCION CLIENTE  ------'
    Public ReadOnly Property StringidProforma() As String
        Get
            Return "PROFORMA " + idProforma.ToString + " :"
        End Get
    End Property
    Public ReadOnly Property NombresCompletoVendedor() As String
        Get
            Return Evendedor.apePaterno + " " + Evendedor.apeMaterno + ", " + Evendedor.nombre
        End Get
    End Property
    '---------------------------------------'

    Public ReadOnly Property rango() As String
        Get
            Return rangoEdadDe + "-" + RangoEdadHasta
        End Get
    End Property
    Public ReadOnly Property NombreCompleto() As String
        Get
            Return nombre + " " + apePaterno + " " + apeMaterno
        End Get
    End Property

    Public ReadOnly Property nombreCompletosPosCliente() As String
        Get
            Return _EposibleCliente.NombresCompletos
        End Get
    End Property
    Public ReadOnly Property nombreCompletosVendedor() As String
        Get
            Return _Evendedor.NombresCompletos
        End Get
    End Property
    Public ReadOnly Property TelefonosPosCliente() As String
        Get
            Return _EposibleCliente.Telefonos
        End Get
    End Property
    Public ReadOnly Property rangoEdadPosCliente() As String
        Get
            Return _ErangoEdad.rangoEdad
        End Get
    End Property
    Public ReadOnly Property emailCliente() As String
        Get
            Return EposibleCliente.email
        End Get
    End Property

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, _
                   ByVal idPosCliente As Int32, ByVal nroDocumento As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal estado As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        'Me.idCliente = idCliente
        Me.EposibleCliente = New EposibleCliente(idPosCliente, nroDocumento, nombre, apePaterno, apeMaterno)
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idProforma As Int32)
        Me.idProforma = idProforma
    End Sub

    '----- PROFORMA EVOLTA -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idPosCliente As Int32, _
                   ByVal idRangoEdad As Int32, ByVal idVendedor As Int32, ByVal idNivelInteres As Int32, _
                   ByVal idComoSeEntero As Int32, ByVal idFormaContacto As Int32, ByVal descuento As Decimal, _
                   ByVal idPerfilCrediticio As Int32, ByVal idCorredora As Int32, ByVal cuotaInicialPorc As Decimal, _
                   ByVal montoInicial As Decimal, ByVal idEntidadFin As Int32, ByVal nroAños As Int32, _
                   ByVal tasaInteres As Decimal, ByVal valorCuota As Decimal, ByVal observacion As String, _
                   ByVal idTpoUsoInmueble As Int32, ByVal estado As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        _EposibleCliente = New EposibleCliente
        _EposibleCliente.idPosCliente = idPosCliente
        _ErangoEdad = New ErangoEdad
        _ErangoEdad.idRangoEdad = idRangoEdad
        _Evendedor = New Evendedor
        _Evendedor.idVendedor = idVendedor
        _EnivelInteres = New EnivelInteres
        _EnivelInteres.idNivelInteres = idNivelInteres
        _EcomoSeEntero = New EcomoSeEntero
        _EcomoSeEntero.idComoSeEntero = idComoSeEntero
        _EformaContacto = New EformaContacto
        _EformaContacto.idFormaContacto = idFormaContacto
        Me.descuento = descuento
        _EperfilCrediticio = New EperfilCrediticio
        _EperfilCrediticio.idPerfilCrediticio = idPerfilCrediticio
        _Ecorredora = New Ecorredora
        _Ecorredora.idCorredora = idCorredora
        Me.cuotaInicialPorc = cuotaInicialPorc
        Me.montoInicial = montoInicial
        _EentidadFin = New EentidadFin
        _EentidadFin.idEntidadFin = idEntidadFin
        Me.nroAños = nroAños
        Me.tasaInteres = tasaInteres
        Me.valorCuota = valorCuota
        Me.observacion = observacion
        _EtpoUsoInmueble = New EtpoUsoInmueble
        _EtpoUsoInmueble.idTpoUsoInmueble = idTpoUsoInmueble
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub

    '----- PROFORMA VERSUS -----
    Public Sub New(ByVal idEmpresa As Int32, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idPosCliente As Int32, _
                   ByVal idRangoEdad As Int32, ByVal idVendedor As Int32, ByVal idNivelInteres As Int32, _
                   ByVal idComoSeEntero As Int32, ByVal idFormaContacto As Int32, ByVal descuento As Decimal, _
                   ByVal idPerfilCrediticio As Int32, ByVal idCorredora As Int32, ByVal cuotaInicialPorc As Decimal, _
                   ByVal montoInicial As Decimal, ByVal idEntidadFin As Int32, ByVal nroAños As Int32, _
                   ByVal tasaInteres As Decimal, ByVal valorCuota As Decimal, ByVal observacion As String, _
                   ByVal idTpoUsoInmueble As Int32, ByVal estado As String)
        Me.idEmpresa = idEmpresa
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        _EposibleCliente = New EposibleCliente
        _EposibleCliente.idPosCliente = idPosCliente
        _ErangoEdad = New ErangoEdad
        _ErangoEdad.idRangoEdad = idRangoEdad
        _Evendedor = New Evendedor
        _Evendedor.idVendedor = idVendedor
        _EnivelInteres = New EnivelInteres
        _EnivelInteres.idNivelInteres = idNivelInteres
        _EcomoSeEntero = New EcomoSeEntero
        _EcomoSeEntero.idComoSeEntero = idComoSeEntero
        _EformaContacto = New EformaContacto
        _EformaContacto.idFormaContacto = idFormaContacto
        Me.descuento = descuento
        _EperfilCrediticio = New EperfilCrediticio
        _EperfilCrediticio.idPerfilCrediticio = idPerfilCrediticio
        _Ecorredora = New Ecorredora
        _Ecorredora.idCorredora = idCorredora
        Me.cuotaInicialPorc = cuotaInicialPorc
        Me.montoInicial = montoInicial
        _EentidadFin = New EentidadFin
        _EentidadFin.idEntidadFin = idEntidadFin
        Me.nroAños = nroAños
        Me.tasaInteres = tasaInteres
        Me.valorCuota = valorCuota
        Me.observacion = observacion
        _EtpoUsoInmueble = New EtpoUsoInmueble
        _EtpoUsoInmueble.idTpoUsoInmueble = idTpoUsoInmueble
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub

    '----- PROFORMA FILTRA CTRL -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idPosCliente As Int32, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, _
                   ByVal nroDocumento As String, ByVal sexo As Int32, ByVal edad As Int32, ByVal idEstCivil As Int32, _
                   ByVal descEstCivil As String, ByVal email As String, ByVal idUbigeo As String, ByVal direccion As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                   ByVal centroLaboral As String, ByVal telefonoLaboral As String, ByVal comentarios As String, ByVal fchDscto As String, _
                   ByVal idRangoEdad As Int32, ByVal RangoEdadDe As String, ByVal RangoEdadHasta As String, ByVal idVendedor As Int32, _
                   ByVal nombreVendedor As String, ByVal apePatVendedor As String, ByVal apeMatVendedor As String, ByVal idNivelInteres As Int32, _
                   ByVal descNivelInteres As String, ByVal idComoSeEntero As Int32, ByVal descComoSeEntero As String, ByVal idFormaContacto As Int32, _
                   ByVal descFormaContacto As String, ByVal vigenciaDescuento As Int32, ByVal mondoAdicional As Decimal, ByVal descuento As Decimal, _
                   ByVal idPerfilCrediticio As Int32, ByVal descPerfilCrediticio As String, ByVal idCorredora As Int32, ByVal nombreCorredora As String, _
                   ByVal apeMatCorredora As String, ByVal apePatCorredora As String, ByVal idTpoUsoInmueble As Int32, ByVal descTpoUsoInmueble As String, _
                   ByVal cuotaInicialPorc As Decimal, ByVal montoInicial As Decimal, ByVal saldoAFinanciar As Decimal, ByVal idEntidadFin As Int32, _
                   ByVal nroAños As Int32, ByVal tasaInteres As Decimal, ByVal valorCuota As Decimal, ByVal descCtaInicial As String, ByVal descSaldo As String, _
                   ByVal observacion As String, ByVal totalMonto As Decimal, ByVal totalMontoFinal As Decimal, ByVal OtroDocumento As String, _
                   ByVal techopropio As String, ByVal FlagInmuebleOK As Int32, ByVal inmueble As String, ByVal montoAdicionales As Decimal, ByVal idColor As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.EposibleCliente = New EposibleCliente(idPosCliente, nombre, apePaterno, apeMaterno, _
                                                 idTpoDcmto, nroDocumento, sexo, edad, _
                                                 idEstCivil, descEstCivil, email, idUbigeo, _
                                                 direccion, telefonoFijo, telefonoCelular, idOcupacion, _
                                                 descOcupacion, centroLaboral, telefonoLaboral, comentarios, OtroDocumento)
        Me.fchDscto = fchDscto
        Me.ErangoEdad = New ErangoEdad(idRangoEdad, RangoEdadDe, RangoEdadHasta)
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.EcomoSeEntero = New EcomoSeEntero(idComoSeEntero, descComoSeEntero)
        Me.EformaContacto = New EformaContacto(idFormaContacto, descFormaContacto)
        Me.vigenciaDescuento = vigenciaDescuento
        Me.montoAdicional = mondoAdicional
        Me.descuento = descuento
        Me.EperfilCrediticio = New EperfilCrediticio(idPerfilCrediticio, descPerfilCrediticio)
        Me.Ecorredora = New Ecorredora(idCorredora, nombreCorredora, apeMatCorredora, apePatCorredora)
        Me.EtpoUsoInmueble = New EtpoUsoInmueble(idTpoUsoInmueble, descTpoUsoInmueble)
        Me.cuotaInicialPorc = cuotaInicialPorc
        Me.montoInicial = montoInicial
        Me.saldoAFinanciar = saldoAFinanciar
        Me.EentidadFin = New EentidadFin(idEntidadFin)
        Me.nroAños = nroAños
        Me.tasaInteres = tasaInteres
        Me.valorCuota = valorCuota
        Me.descCtaInicial = descCtaInicial
        Me.descSaldo = descSaldo
        Me.observacion = observacion
        Me.totalMonto = totalMonto
        Me.totalMontoFinal = totalMontoFinal
        Me.FlagInmuebleOK = FlagInmuebleOK
        Me.inmueble = inmueble
        Me.TechoPropio = techopropio
        Me.montoAdicionales = montoAdicionales
        Me.idColor = idColor
    End Sub
    '----- PROFORMA FILTRA  -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idPosCliente As Int32, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, _
                   ByVal nroDocumento As String, ByVal sexo As Int32, ByVal edad As Int32, ByVal idEstCivil As Int32, _
                   ByVal descEstCivil As String, ByVal email As String, ByVal idUbigeo As String, ByVal direccion As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                   ByVal centroLaboral As String, ByVal telefonoLaboral As String, ByVal comentarios As String, ByVal fchDscto As String, _
                   ByVal idRangoEdad As Int32, ByVal RangoEdadDe As String, ByVal RangoEdadHasta As String, ByVal idVendedor As Int32, _
                   ByVal nombreVendedor As String, ByVal apePatVendedor As String, ByVal apeMatVendedor As String, ByVal idNivelInteres As Int32, _
                   ByVal descNivelInteres As String, ByVal idComoSeEntero As Int32, ByVal descComoSeEntero As String, ByVal idFormaContacto As Int32, _
                   ByVal descFormaContacto As String, ByVal vigenciaDescuento As Int32, ByVal mondoAdicional As Decimal, ByVal descuento As Decimal, _
                   ByVal idPerfilCrediticio As Int32, ByVal descPerfilCrediticio As String, ByVal idCorredora As Int32, ByVal nombreCorredora As String, _
                   ByVal apeMatCorredora As String, ByVal apePatCorredora As String, ByVal idTpoUsoInmueble As Int32, ByVal descTpoUsoInmueble As String, _
                   ByVal cuotaInicialPorc As Decimal, ByVal montoInicial As Decimal, ByVal saldoAFinanciar As Decimal, ByVal idEntidadFin As Int32, _
                   ByVal nroAños As Int32, ByVal tasaInteres As Decimal, ByVal valorCuota As Decimal, ByVal descCtaInicial As String, ByVal descSaldo As String, _
                   ByVal observacion As String, ByVal totalMonto As Decimal, ByVal totalMontoFinal As Decimal, ByVal OtroDocumento As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.EposibleCliente = New EposibleCliente(idPosCliente, nombre, apePaterno, apeMaterno, _
                                                 idTpoDcmto, nroDocumento, sexo, edad, _
                                                 idEstCivil, descEstCivil, email, idUbigeo, _
                                                 direccion, telefonoFijo, telefonoCelular, idOcupacion, _
                                                 descOcupacion, centroLaboral, telefonoLaboral, comentarios, OtroDocumento)
        Me.fchDscto = fchDscto
        Me.ErangoEdad = New ErangoEdad(idRangoEdad, RangoEdadDe, RangoEdadHasta)
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.EcomoSeEntero = New EcomoSeEntero(idComoSeEntero, descComoSeEntero)
        Me.EformaContacto = New EformaContacto(idFormaContacto, descFormaContacto)
        Me.vigenciaDescuento = vigenciaDescuento
        Me.montoAdicional = mondoAdicional
        Me.descuento = descuento
        Me.EperfilCrediticio = New EperfilCrediticio(idPerfilCrediticio, descPerfilCrediticio)
        Me.Ecorredora = New Ecorredora(idCorredora, nombreCorredora, apeMatCorredora, apePatCorredora)
        Me.EtpoUsoInmueble = New EtpoUsoInmueble(idTpoUsoInmueble, descTpoUsoInmueble)
        Me.cuotaInicialPorc = cuotaInicialPorc
        Me.montoInicial = montoInicial
        Me.saldoAFinanciar = saldoAFinanciar
        Me.EentidadFin = New EentidadFin(idEntidadFin)
        Me.nroAños = nroAños
        Me.tasaInteres = tasaInteres
        Me.valorCuota = valorCuota
        Me.descCtaInicial = descCtaInicial
        Me.descSaldo = descSaldo
        Me.observacion = observacion
        Me.totalMonto = totalMonto
        Me.totalMontoFinal = totalMontoFinal
    End Sub
    '----- CONSULTA PROFORMA FILTRA -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idPosCliente As Int32, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, _
                   ByVal nroDocumento As String, ByVal sexo As Int32, ByVal edad As Int32, ByVal idEstCivil As Int32, _
                   ByVal descEstCivil As String, ByVal email As String, ByVal idUbigeo As String, ByVal direccion As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                   ByVal centroLaboral As String, ByVal telefonoLaboral As String, ByVal comentarios As String, ByVal fchDscto As String, _
                   ByVal idRangoEdad As Int32, ByVal RangoEdadDe As String, ByVal RangoEdadHasta As String, ByVal idVendedor As Int32, _
                   ByVal nombreVendedor As String, ByVal apePatVendedor As String, ByVal apeMatVendedor As String, ByVal idNivelInteres As Int32, _
                   ByVal descNivelInteres As String, ByVal idComoSeEntero As Int32, ByVal descComoSeEntero As String, ByVal idFormaContacto As Int32, _
                   ByVal descFormaContacto As String, ByVal vigenciaDescuento As Int32, ByVal mondoAdicional As Decimal, ByVal descuento As Decimal, _
                   ByVal idPerfilCrediticio As Int32, ByVal descPerfilCrediticio As String, ByVal idCorredora As Int32, ByVal nombreCorredora As String, _
                   ByVal apeMatCorredora As String, ByVal apePatCorredora As String, ByVal idTpoUsoInmueble As Int32, ByVal descTpoUsoInmueble As String, _
                   ByVal cuotaInicialPorc As Decimal, ByVal montoInicial As Decimal, ByVal saldoAFinanciar As Decimal, ByVal idEntidadFin As Int32, _
                   ByVal nroAños As Int32, ByVal tasaInteres As Decimal, ByVal valorCuota As Decimal, ByVal descCtaInicial As String, ByVal descSaldo As String, _
                   ByVal observacion As String, ByVal totalMonto As Decimal, ByVal totalMontoFinal As Decimal, ByVal descProyecto As String, ByVal descEtapa As String, ByVal OtroDocumento As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.EposibleCliente = New EposibleCliente(idPosCliente, nombre, apePaterno, apeMaterno, _
                                                 idTpoDcmto, nroDocumento, sexo, edad, _
                                                 idEstCivil, descEstCivil, email, idUbigeo, _
                                                 direccion, telefonoFijo, telefonoCelular, idOcupacion, _
                                                 descOcupacion, centroLaboral, telefonoLaboral, comentarios, OtroDocumento)
        Me.fchDscto = fchDscto
        Me.ErangoEdad = New ErangoEdad(idRangoEdad, RangoEdadDe, RangoEdadHasta)
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.EcomoSeEntero = New EcomoSeEntero(idComoSeEntero, descComoSeEntero)
        Me.EformaContacto = New EformaContacto(idFormaContacto, descFormaContacto)
        Me.vigenciaDescuento = vigenciaDescuento
        Me.montoAdicional = mondoAdicional
        Me.descuento = descuento
        Me.EperfilCrediticio = New EperfilCrediticio(idPerfilCrediticio, descPerfilCrediticio)
        Me.Ecorredora = New Ecorredora(idCorredora, nombreCorredora, apeMatCorredora, apePatCorredora)
        Me.EtpoUsoInmueble = New EtpoUsoInmueble(idTpoUsoInmueble, descTpoUsoInmueble)
        Me.cuotaInicialPorc = cuotaInicialPorc
        Me.montoInicial = montoInicial
        Me.saldoAFinanciar = saldoAFinanciar
        Me.EentidadFin = New EentidadFin(idEntidadFin)
        Me.nroAños = nroAños
        Me.tasaInteres = tasaInteres
        Me.valorCuota = valorCuota
        Me.descCtaInicial = descCtaInicial
        Me.descSaldo = descSaldo
        Me.observacion = observacion
        Me.totalMonto = totalMonto
        Me.totalMontoFinal = totalMontoFinal
        Me.descProyecto = descProyecto
        Me.descEtapa = descEtapa
    End Sub

    '-------    MENU RERPORTE    ------------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal fchCreacion As String, _
                   ByVal idPosCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idRangoEdad As Int32, ByVal RangoEdadDe As String, ByVal RangoEdadHasta As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal idUbigeo As String, ByVal distrito As String, ByVal idVendedor As Int32, _
                   ByVal nombreVendedor As String, ByVal apePatVendedor As String, ByVal apeMatVendedor As String, ByVal descEtapa As String, _
                   ByVal idNivelInteres As Int32, ByVal descNivelInteres As String, ByVal idComoSeEntero As Int32, ByVal descComoSeEntero As String, _
                   ByVal idFormaContacto As Int32, ByVal descFormaContacto As String, ByVal montoInicial As Decimal, ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idProforma = idProforma
        Me.fchCreacion = fchCreacion
        Me.EposibleCliente = New EposibleCliente
        Me.EposibleCliente.idPosCliente = idPosCliente
        Me.EposibleCliente.nombre = nombre
        Me.EposibleCliente.apePaterno = apePaterno
        Me.EposibleCliente.apeMaterno = apeMaterno
        Me.EposibleCliente.Eubigeo = New Eubigeo
        Me.EposibleCliente.Eubigeo.idUbigeo = idUbigeo
        Me.EposibleCliente.Eubigeo.descDistrito = distrito
        Me.EposibleCliente.telefonoFijo = telefonoFijo
        Me.EposibleCliente.telefonoCelular = telefonoCelular
        Me.ErangoEdad = New ErangoEdad(idRangoEdad, RangoEdadDe, RangoEdadHasta)
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.EcomoSeEntero = New EcomoSeEntero(idComoSeEntero, descComoSeEntero)
        Me.EformaContacto = New EformaContacto(idFormaContacto, descFormaContacto)
        Me.montoInicial = montoInicial
        Me.observacion = observacion
    End Sub

    '-------   MENU ATENCION CLIENTE  ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal descEtapa As String, _
                   ByVal idProforma As Int32, ByVal fchCreacion As String, ByVal idVendedor As Int32, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal idNivelInteres As Int32, ByVal descNivelInteres As String, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal totalMonto As Decimal, ByVal descCtaInicial As String, _
                   ByVal descSaldo As String, ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idProforma = idProforma
        Me.fchCreacion = fchCreacion
        Me.Evendedor = New Evendedor(idVendedor, nombre, apePaterno, apeMaterno)
        Me.descNivelInteres = descNivelInteres
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.descEntidadFin = descEntidadFin
        Me.EentidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.totalMonto = totalMonto
        Me.descCtaInicial = descCtaInicial
        Me.descSaldo = descSaldo
        Me.observacion = observacion
    End Sub

    '-------   MENU ATENCION CLIENTE VERSUS ------'
    Public Sub New(ByVal idEmpresa As Int32, ByVal descEmpresa As String, ByVal idProyecto As Int32, ByVal descProyecto As String, _
                   ByVal idEtapa As Int32, ByVal descEtapa As String, ByVal idProforma As Int32, ByVal fchCreacion As String, _
                   ByVal idVendedor As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idNivelInteres As Int32, ByVal descNivelInteres As String, ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, _
                   ByVal totalMonto As Decimal, ByVal descCtaInicial As String, ByVal descSaldo As String, ByVal observacion As String)
        Me.idEmpresa = idEmpresa
        Me.descEmpresa = descEmpresa
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idProforma = idProforma
        Me.fchCreacion = fchCreacion
        Me.Evendedor = New Evendedor(idVendedor, nombre, apePaterno, apeMaterno)
        Me.descNivelInteres = descNivelInteres
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.descEntidadFin = descEntidadFin
        Me.EentidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.totalMonto = totalMonto
        Me.descCtaInicial = descCtaInicial
        Me.descSaldo = descSaldo
        Me.observacion = observacion
    End Sub

    '-------    MENU REPORTE - CONSULTA PROFORMA   ------------'
    Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal descEtapa As String, _
                   ByVal idProforma As Int32, ByVal hrCreacion As DateTime, ByVal fchCreacion As String, ByVal nroDocumento As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal email As String, _
                   ByVal totalIngreso As Decimal, ByVal distritoCliente As String, ByVal RangoEdadDe As String, ByVal RangoEdadHasta As String, _
                   ByVal nombreVendedor As String, ByVal apePatVendedor As String, ByVal apeMatVendedor As String, ByVal idNivelInteres As Int32, _
                   ByVal descNivelInteres As String, ByVal idComoSeEntero As Int32, ByVal descComoSeEntero As String, ByVal idFormaContacto As Int32, _
                   ByVal descFormaContacto As String, ByVal idPerfilCrediticio As Int32, ByVal descPerfilCrediticio As String, ByVal totalMontoFinal As Decimal, _
                   ByVal descuento As Decimal, ByVal descCtaInicial As String, ByVal descSaldo As String, ByVal observacion As String)
        Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idProforma = idProforma
        Me.hrCreacion = hrCreacion
        Me.fchCreacion = fchCreacion
        Me.idPosCliente = idPosCliente
        Me.EposibleCliente = New EposibleCliente(nombre, apePaterno, apeMaterno)
        With Me.EposibleCliente
            .nroDocumento = nroDocumento.Trim
            .telefonoFijo = telefonoFijo
            .telefonoCelular = telefonoCelular
            .Eubigeo = New Eubigeo
            .Eubigeo.descDistrito = distritoCliente
            .email = email
            .totalIngreso = totalIngreso
        End With
        Me.ErangoEdad = New ErangoEdad
        With Me.ErangoEdad
            .rangoEdadDe = RangoEdadDe
            .rangoEdadHasta = RangoEdadHasta
        End With
        Me.Evendedor = New Evendedor(nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.descNivelInteres = descNivelInteres
        Me.EcomoSeEntero = New EcomoSeEntero(idComoSeEntero, descComoSeEntero)
        Me.EformaContacto = New EformaContacto(idFormaContacto, descFormaContacto)
        Me.EperfilCrediticio = New EperfilCrediticio(idPerfilCrediticio, descPerfilCrediticio)
        Me.totalMontoFinal = totalMontoFinal
        Me.descuento = descuento
        Me.descCtaInicial = descCtaInicial
        Me.descSaldo = descSaldo
        Me.observacion = observacion
    End Sub

    '-------    MENU REPORTE - CONSULTA PROFORMA VERSUS   ------------'
    Public Sub New(ByVal correlativo As Int64, ByVal idEmpresa As Int32, ByVal descEmpresa As String, ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal descEtapa As String, _
                   ByVal idProforma As Int32, ByVal hrCreacion As DateTime, ByVal fchCreacion As String, ByVal nroDocumento As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal email As String, _
                   ByVal totalIngreso As Decimal, ByVal distritoCliente As String, ByVal RangoEdadDe As String, ByVal RangoEdadHasta As String, _
                   ByVal nombreVendedor As String, ByVal apePatVendedor As String, ByVal apeMatVendedor As String, ByVal idNivelInteres As Int32, _
                   ByVal descNivelInteres As String, ByVal idComoSeEntero As Int32, ByVal descComoSeEntero As String, ByVal idFormaContacto As Int32, _
                   ByVal descFormaContacto As String, ByVal idPerfilCrediticio As Int32, ByVal descPerfilCrediticio As String, ByVal totalMontoFinal As Decimal, _
                   ByVal descuento As Decimal, ByVal descCtaInicial As String, ByVal descSaldo As String, ByVal observacion As String)
        Me.correlativo = correlativo
        Me.idEmpresa = idEmpresa
        Me.descEmpresa = descEmpresa
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idProforma = idProforma
        Me.hrCreacion = hrCreacion
        Me.fchCreacion = fchCreacion
        Me.idPosCliente = idPosCliente
        Me.EposibleCliente = New EposibleCliente(nombre, apePaterno, apeMaterno)
        With Me.EposibleCliente
            .nroDocumento = nroDocumento.Trim
            .telefonoFijo = telefonoFijo
            .telefonoCelular = telefonoCelular
            .Eubigeo = New Eubigeo
            .Eubigeo.descDistrito = distritoCliente
            .email = email
            .totalIngreso = totalIngreso
        End With
        Me.ErangoEdad = New ErangoEdad
        With Me.ErangoEdad
            .rangoEdadDe = RangoEdadDe
            .rangoEdadHasta = RangoEdadHasta
        End With
        Me.Evendedor = New Evendedor(nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.EnivelInteres = New EnivelInteres(idNivelInteres, descNivelInteres)
        Me.descNivelInteres = descNivelInteres
        Me.EcomoSeEntero = New EcomoSeEntero(idComoSeEntero, descComoSeEntero)
        Me.EformaContacto = New EformaContacto(idFormaContacto, descFormaContacto)
        Me.EperfilCrediticio = New EperfilCrediticio(idPerfilCrediticio, descPerfilCrediticio)
        Me.totalMontoFinal = totalMontoFinal
        Me.descuento = descuento
        Me.descCtaInicial = descCtaInicial
        Me.descSaldo = descSaldo
        Me.observacion = observacion
    End Sub
    '---------------------------------------'
#End Region

End Class
